home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / menutest / mnutest.frm < prev    next >
Text File  |  1995-09-06  |  2KB  |  66 lines
  1. VERSION 2.00
  2. Begin Form TestForm 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "MenuEnable Test"
  5.    ClientHeight    =   870
  6.    ClientLeft      =   2460
  7.    ClientTop       =   3135
  8.    ClientWidth     =   2625
  9.    Height          =   1560
  10.    Left            =   2400
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    MousePointer    =   12  'No Drop
  16.    ScaleHeight     =   870
  17.    ScaleWidth      =   2625
  18.    Top             =   2505
  19.    Width           =   2745
  20.    Begin CommandButton Command2 
  21.       Caption         =   "Disable"
  22.       Height          =   615
  23.       Left            =   1440
  24.       MousePointer    =   1  'Arrow
  25.       TabIndex        =   1
  26.       Top             =   120
  27.       Width           =   975
  28.    End
  29.    Begin CommandButton Command1 
  30.       Caption         =   "Enable"
  31.       Height          =   615
  32.       Left            =   240
  33.       MousePointer    =   1  'Arrow
  34.       TabIndex        =   0
  35.       Top             =   120
  36.       Width           =   975
  37.    End
  38.    Begin Menu topa 
  39.       Caption         =   "TopA"
  40.       Begin Menu suba1 
  41.          Caption         =   "SubA1"
  42.       End
  43.       Begin Menu suba2 
  44.          Caption         =   "SubA2"
  45.       End
  46.    End
  47.    Begin Menu topb 
  48.       Caption         =   "TopB"
  49.    End
  50.    Begin Menu topc 
  51.       Caption         =   "TopC"
  52.    End
  53. End
  54. Sub Command1_Click ()
  55.  
  56. MenuEnable (TestForm.Hwnd), -1
  57.  
  58. End Sub
  59.  
  60. Sub Command2_Click ()
  61.  
  62. MenuEnable (TestForm.Hwnd), 0
  63.  
  64. End Sub
  65.  
  66.